%% master_results

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Date: 30/06/2022
%
% Program: this file reproduces all the tables and figures in the draft
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Figure 1
clear
rhoT = '3';
etaT = '1.000001';
lambdaT = '1.000001';
alphaT = 4;
varphi = '3';
sigmaT = '1.5';
Figure1;


% Table 1
clear
france=15;
close all
rhoT = '3';
etaT = '1.000001';
lambdaT = '1.000001';
alphaT = 4;
varphi = '3';
sigmaT = '1.5';
shockT='WORLDprod_p10';
Table1;

% Table 3
clear
rhoT = '3';
etaT = '1.000001';
lambdaT = '1.000001';
alphaT = 4;
varphi = '3';
sigmaT = '1.5';
shockT='';
Table3;
%      

   
% Figure 2
clear
rhoT = '3';
etaT = '1.000001';
lambdaT = '1.000001';
alphaT = 4;
varphi = '3';
sigmaT = '1.5';
shockT='WORLDprod_p10';
Figure2;

% Figure 3
clear
france = 15;
rhoT = '3';
etaT = '1.000001';
lambdaT = '1.000001';
alphaT = 4;
varphi = '3';
sigmaT = '1.5';
shockT='WORLDprod_p10';
Figure3;

% Table 4
clear
france = 15;
rhoT = '3';
etaT = '1.000001';
lambdaT = '1.000001';
alphaT = 4;
varphi = '3';
sigmaT = '1.5';
shockT='WORLDprod_p10';
Table4;

% Figure 4
clear
france = 15;
rhoT = '3';
etaT = '1.000001';
lambdaT = '1.000001';
alphaT = 4;
varphi = '3';
sigmaT = '1.5';
shockT='WORLDprod_p10';
ISO = {'AUS', 'AUT', 'BEL', 'BGR', 'BRA', 'CAN', 'CHN' ,'CYP', ...
           'CZE', 'DEU', 'DNK', 'ESP' , 'EST', 'FIN', 'FRA', 'GBR', ...
           'GRC', 'HUN', 'IDN', 'IND', 'IRL', 'ITA', 'JPN', 'KOR', ...
           'LTU' ,'LVA', 'MEX','MLT', 'NLD', 'POL', 'PRT', 'ROU','RUS', ...
           'SVK', 'SVN', 'SWE', 'TUR', 'TWN', 'USA'};
Figure4;

% Figure 5
clear
france = 15;
rhoT = '3';
etaT = '1.000001';
lambdaT = '1.000001';
alphaT = 4;
varphi = '3';
sigmaT = '1.5';
shockT='WORLDprod_p10';
ISO = {'AUS', 'AUT', 'BEL', 'BGR', 'BRA', 'CAN', 'CHN' ,'CYP', ...
           'CZE', 'DEU', 'DNK', 'ESP' , 'EST', 'FIN', 'FRA', 'GBR', ...
           'GRC', 'HUN', 'IDN', 'IND', 'IRL', 'ITA', 'JPN', 'KOR', ...
           'LTU' ,'LVA', 'MEX','MLT', 'NLD', 'POL', 'PRT', 'ROU','RUS', ...
           'SVK', 'SVN', 'SWE', 'TUR', 'TWN', 'USA'};
Top10 = {'DEU','ITA','ESP','GBR','BEL','USA','RUS','CHN','NLD','JPN'};
Figure5;

% Figure 6
clear
france = 15;
greece = 16;
rhoT = '3';
etaT = '1.000001';
lambdaT = '1.000001';
alphaT = 4;
varphi = '3';
sigmaT = '1.5';
shockT='WORLDprod_p10';
ISO = {'AUS', 'AUT', 'BEL', 'BGR', 'BRA', 'CAN', 'CHN' ,'CYP', ...
           'CZE', 'DEU', 'DNK', 'ESP' , 'EST', 'FIN', 'FRA', 'GBR', ...
           'GRC', 'HUN', 'IDN', 'IND', 'IRL', 'ITA', 'JPN', 'KOR', ...
           'LTU' ,'LVA', 'MEX','MLT', 'NLD', 'POL', 'PRT', 'ROU','RUS', ...
           'SVK', 'SVN', 'SWE', 'TUR', 'TWN', 'USA'};
Top10 = {'DEU','ITA','ESP','GBR','BEL','USA','RUS','CHN','NLD','JPN'};

Figure6;

% Figure 8
clear 
J=32;
N = 40;
france = 15;
rhoT = '3';
etaT = '1.000001';
lambdaT = '1.000001';
alphaT = 4;
varphi = '3';
sigmaT = '1.5';
Figure8;


% Table A1
clear 
J=32;
france = 15;
rhoT = '3';
etaT = '1.000001';
lambdaT = '1.000001';
alphaT = 4;
varphi = '3';
sigmaT = '1.5';
TableA1;

% Figure A1
clear
J=32;
france = 15;
rhoT = '3';
etaT = '1.000001';
lambdaT = '1.000001';
alphaT = 4;
varphi = '3';
sigmaT = '1.5';
FigureA1;

% Table A5
clear
TableA5;
